home *** CD-ROM | disk | FTP | other *** search
/ C/C++ Users Group Library 1996 July / C-C++ Users Group Library July 1996.iso / vol_200 / 232_01 / radian.st < prev    next >
Encoding:
Text File  |  1987-06-15  |  512 b   |  28 lines
  1. Class Radian :Magnitude
  2. | value |
  3. [
  4.         new: x
  5.                 value <- <NormalizeRadian (x asFloat) >
  6.  
  7. |    < arg
  8.         ^ value < arg asFloat
  9.  
  10. |    = arg
  11.         ^ value = arg asFloat
  12.  
  13. |       sin
  14.                 ^ <Sin value>
  15.  
  16. |       cos
  17.                 ^ <Cos value>
  18.  
  19. |       tan
  20.                 ^ <Sin value> / <Cos value>
  21.  
  22. |       asFloat
  23.                 ^ value
  24.  
  25. |       printString
  26.                 ^ value asString , ' radians'
  27. ]
  28.